home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Development
/
Source
/
DBL Pascal Library
/
Zero
/
Zero.a
next >
Wrap
Text File
|
1991-11-05
|
1KB
|
38 lines
;Asm -l Zero.a
proc
move.l (sp)+,d1 ;get size
move.w d1,d2 ;copy it
clr.l d0 ;the fill value
movea.l (sp)+,a0 ;get buffer addr
lsr.l #2,d1 ;# of longwords
beq.s @2 ;none?
subq.l #1,d1 ;set up loop
@1 move.l d0,(a0)+ ;fill longwords
dbra d1,@1
@2 and.w #3,d2 ;# of extra bytes
beq.s @4 ;none?
subq.w #1,d2 ;set up loop
@3 move.b d0,(a0)+ ;fill bytes
dbra d2,@3
@4
end
$221F, { move.l (sp)+,d1 ;get size}
$3401, { move.w d1,d2 ;copy it}
$7000, { clr.l d0 ;the fill value}
$205F, { movea.l (sp)+,a0 ;get buffer addr}
$E489, { lsr.l #2,d1 ;# of longwords}
$6708, { beq.s @2 ;none?}
$5381, { subq.l #1,d1 ;set up loop}
$20C0, {@1 move.l d0,(a0)+ ;fill longwords}
$51C9, $FFFC { dbra d1,@1}
$0242, $0003 {@2 and.w #3,d2 ;# of extra bytes}
$6708, { beq.s @4 ;none?}
$5342, { subq.w #1,d2 ;set up loop}
$10C0, {@3 move.b d0,(a0)+ ;fill bytes}
$51CA, $FFFC; { dbra d2,@3}
{@4}